home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / peer011b / testfd.bas < prev   
BASIC Source File  |  1995-02-19  |  926b  |  19 lines
  1. 10 '*********************** FD情報読み取り ver 0.1B ********************
  2. 20    CLS:CLEAR ,,,,1024*2
  3. 30    DEFINT A-Z:LOADM "BB011B.REX",0
  4. 40 '●マニュアルの有り､無しのチェック(FB386 V2.1L10用)
  5. 50    IF &H6D=PEEK(&H30EC) THEN M=1   '-M=1 マニュアル有り-
  6. 60 '●REXファイルのオフセット0番地を調べる
  7. 70    IF M=0 THEN REXADD&=PEEK(&H2B7C,4)
  8. 80    IF M=1 THEN REXADD&=PEEK(&H2B84,4)
  9. 90    N_DATA&=REXADD&+1000
  10. 100    BIOSNO&=&H93
  11. 110    R_EAX&=&H0520:R_EBX&=&H01:R_ECX&=&H00:R_EDX&=&H101
  12. 120    R_ESI&=&H0:R_EDI&=N_DATA&
  13. 130    R_DS%=&H14:R_ES%=&H14:R_FS%=&H14:R_GS%=&H14
  14. 140 '
  15. 150    CALLM &H0A,BIOSNO&,VARPTR(R_EAX&),VARPTR(R_EBX&),VARPTR(R_ECX&),VARPTR(R_EDX&),VARPTR(R_ESI&),VARPTR(R_EDI&),VARPTR(R_DS%),VARPTR(R_ES%),VARPTR(R_FS%),VARPTR(R_GS%)
  16. 160   LOCATE 0,21:PRINT RIGHT$("0000"+HEX$(R_EAX&),4)
  17. 170   LOCATE 0,22:PRINT RIGHT$("0000"+HEX$(R_EBX&),4)
  18. 180   LOCATE 0,23:PRINT RIGHT$("0000"+HEX$(R_ECX&),4);
  19.